define j:integer;
define i:integer;
define tmp:byte;
define massiv:byte[7];
begin
for i=1 to 7 do
  begin
    printS("Введите e[i]")
    massiv[i]=con
    prints(" "L)
  end
    i=1
    while i<=7 do
       begin
         j=i+1
             while j<=7 do
             begin
         if massiv[j]<massiv[i] then
         begin
           tmp=massiv[i]
           massiv[i]=massiv[j]
           massiv[j]=tmp
         end
        j=j+1
       end
        i=i+1
       end
      for i=1 to 7 do
      begin
      prints("e[i]")
      printi(massiv[i])
      prints(" "L)
      end
      end.
